home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 January
/
64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64
/
kreis zeichnen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
598b
|
25 lines
40397 rem ************************
40398 rem * hires-kreis zeichnen *
40399 rem ************************
40400 if x1<0 or x1>319 then return
40410 if y1<0 or y1>199 then return
40420 mu=0:xm=319:rf=1:gosub 40550:rem ** kreis zeichnen **
40430 return
40497 rem ************************
40498 rem * multi-kreis zeichnen *
40499 rem ************************
40500 if x1<0 or x1>159 then return
40510 if y1<0 or y1>199 then return
40520 mu=1:xm=159:rf=2:gosub 40550
40530 return
40535 rem
40540 rem *** kreis zeichnen ***
40545 rem
40550 for xw=0 to 2*(NULL) step 2*(NULL)/(r*6)
40555 y=sin(xw)*r+y1:x=cos(xw)*r/rf+x1
40560 if y<0 or y>199 then 40590
40570 if x<0 or x>xm then 40590
40580 if mu=0 then sys 49204,x,y,f:goto 40590
40585 sys 49607,f,x,y
40590 next xw:return